. CHRISTMAS STARS BY ERIC CARR ON ATARI BASIC REV C. 12-16-2022
10 GR.0:DI.Z(160),N(47),S$(384),B$(66):L=1:P=22:H=8:Q=5:F=36:Z=192
15 PP=PEEK(88)+256*PEEK(89):O=PP+131:U=O:POK.752,2:POK.764,255:POS.1,1:?""
19 . COMPUTE STAR
20 FO.X=0TO3:FO.Y=X TO16-X:Z(C)=40*Y+X+4:Z(C+1)=Z(C)+8-X-X:C=C+2:N.Y:N.X
25 FO.X=0TO3:FO.Y=X TO3:Z(C)=40*(X+4)+Y:Z(C+1)=Z(C)+16-Y-Y:Z(C+2)=40*(12-X)+Y
30 Z(C+3)=Z(C+2)+16-Y-Y:C=C+4:N.Y:N.X:FO.Y=168TO488STEP40:Z(C)=Y:C=C+1:N.Y
35 . LOAD SONG AND LOCATIONS
40 FO.I=0TO47:REA.V:N(I)=V:N.I:FO.I=1TO6:REA.B$:S$(LEN(S$)+1)=B$:N.I
45 . ANIMATION LOOP
50 C=10:FO.K2=0TO6:FO.K=K2 TO160STEP7:I=Z(K):GOS.85:N.K:N.K2:FO.K=1TO53:A=Z(K)
55 GOS.85:N.K:C=7:FO.K=6TO80STEP7:I=Z(K):GOS.85:FO.K2=1TO6:A=Z(K):GOS.85
60 N.K2:N.K:FO.K=83TO160STEP7:I=Z(K):GOS.85:FO.K2=1TO3:A=Z(K):GOS.85:N.K2:N.K
65 FO.K2=5TO0STEP-1:FOR K=K2 TO159 STEP7:I=Z(K):C=7:GOS.85:I=Z(K+1):C=0:GOS.85
70 N.K:N.K2:FO.K=0TO160STEP7:I=Z(K):GOS.85:N.K:FO.K=1TO20:A=Z(K):GOS.85:N.K
75 F=F+2:O=PP+N(F):U=O+N(F+1):GOTO 50
80 . DRAW CHAR AND PLAY NOTES SUBROUTINE
85 POKE O+I,C:POKE U+I,C:Q=Q+1:ON PEEK(764)<>255 GOTO95:IF Q<6 THEN RETURN
86 Q=0:W=W+1:SI=ASC(S$(W,W))-57:IF SI THEN V=17:P=P+AD:AD=0:P=P+SI*(SI<16)
87 V=V-3*(V>2):SO.0,N(P),14,V:D=ASC(S$(W+Z,W+Z))-57:IF D THEN B=8:H=H+D*(D<16)
88 B=B-1*(B>2):SO.1,N(H),14,B:H=H+2*(W=2):IF W>191 THEN W=0:AD=2:ON P>24GOTO95
90 RET.:D.255,243,230,217,204,193,182,173,162,153,144,136,128,121,114,108,102
91 . END PROGRAM GRACEFULY
95 F.I=V TO0STEP-1:SO.0,N(P),14,I:SO.1,N(H),14,I:FO.D=1TO20:N.D:N.I:POK.752,0
96 POS.8,22:?"(FOR THE HOLIDAYS)":POS.1,21:END:D.96,91,85,81,76,72,68,64,60
99 D.57,53,50,47,45,42,40,37,35,33,31,29,241,0,42,179,123,17,51,140,131,0
899 . SONG DATA                                             
900 D._9<999;9;99:89799969599;;9:99969_998:9;999695999>9<999;9;99:897999
901 D.69599;;9:998798997;9:99999_99999C99999_99789799969599;;9:99969_998
902 D.:9;99969599999H99999_99789799969599;;9:998798997;9:99999_99999_999
903 D.99<99999499999699999:99999699999;99999797989C99979>99;794999996999
904 D.99:99999899999C97989799999099999_99999@99999_99999;99999499999=999
905 D.99397989:;;5@929=959@999;9;99999:99999899999<979897999